home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
ARCHIVERS
/
BEGINNER
/
TARZ
/
!tarZ
/
mvarchive
< prev
next >
Wrap
Text File
|
1999-04-24
|
740b
|
22 lines
BEGIN {
command="count <tarZ$use>.archive ~C~RV";
command | getline;
close(command);
if (substr($2,length($2)-length("_tar")+1)=="_tar")
{
system(sprintf("rename %s <tarZ$use>.archive.x_tar",$2));
print "WARNING: assuming uncompressed tarfile";
exit;
}
if (substr($2,length($2)-length("-tar")+1)=="-tar")
{
system(sprintf("rename %s <tarZ$use>.archive.x_tar",$2));
print "WARNING: assuming uncompressed tarfile";
exit;
}
if (toupper(substr($2,length($2)-length("x_tar-Z")+1))!=toupper("x_tar-Z"))
{
system(sprintf("rename %s <tarZ$use>.archive.x_tar-Z",$2));
}
}